home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form Form_About
- BorderStyle = 3 'Fixed Dialog
- Caption = "About Fast Down ..."
- ClientHeight = 5790
- ClientLeft = 1230
- ClientTop = 585
- ClientWidth = 6360
- Icon = "Form_About.frx":0000
- KeyPreview = -1 'True
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- PaletteMode = 1 'UseZOrder
- ScaleHeight = 5790
- ScaleWidth = 6360
- ShowInTaskbar = 0 'False
- Begin VB.Timer Timer1
- Interval = 20000
- Left = 120
- Top = 5160
- End
- Begin VB.Frame Frame1
- Height = 132
- Left = 1272
- TabIndex = 7
- Top = 2424
- Width = 4968
- End
- Begin VB.CommandButton Command1
- Cancel = -1 'True
- Caption = "Ok"
- Default = -1 'True
- Height = 372
- Left = 2880
- TabIndex = 2
- Top = 5280
- Width = 1692
- End
- Begin VB.Label Label_StartupMode
- Alignment = 2 'Center
- Caption = "Startup mode"
- Height = 324
- Left = 1272
- TabIndex = 11
- Top = 3156
- Width = 4956
- End
- Begin VB.Label Label_WindowStartup
- Alignment = 2 'Center
- Caption = "Windows startup"
- Height = 360
- Left = 1320
- TabIndex = 10
- Top = 2784
- Width = 4896
- End
- Begin VB.Label Label_Registration
- Alignment = 2 'Center
- Caption = "Registration status"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 178
- Weight = 400
- Underline = -1 'True
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H000040C0&
- Height = 336
- Left = 1284
- MouseIcon = "Form_About.frx":0442
- MousePointer = 99 'Custom
- TabIndex = 9
- Top = 3816
- Width = 4980
- End
- Begin VB.Label Label_Email
- Alignment = 2 'Center
- Caption = "Email : majids@geocities.com"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 178
- Weight = 400
- Underline = -1 'True
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00008000&
- Height = 348
- Left = 1284
- MouseIcon = "Form_About.frx":074C
- MousePointer = 99 'Custom
- TabIndex = 8
- Top = 4308
- Width = 4980
- End
- Begin VB.Label Label_HomePage
- Alignment = 2 'Center
- Caption = "Web : http://www.angelfire.com/me/majids"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 178
- Weight = 400
- Underline = -1 'True
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00800000&
- Height = 360
- Left = 1284
- MouseIcon = "Form_About.frx":0A56
- MousePointer = 99 'Custom
- TabIndex = 6
- Top = 4704
- Width = 5016
- End
- Begin VB.Label Label5
- Alignment = 2 'Center
- Caption = "A quick shut down utility for Windows 95/98"
- Height = 372
- Left = 1320
- TabIndex = 5
- Top = 1200
- Width = 4932
- End
- Begin VB.Label Label4
- Alignment = 2 'Center
- Caption = "Copyright
- 1998, Majid Salimi"
- Height = 372
- Left = 1308
- TabIndex = 4
- Top = 2076
- Width = 4968
- End
- Begin VB.Label Label3
- Alignment = 2 'Center
- Caption = "A ""Tune It! OCX"" sample"
- Height = 372
- Left = 1296
- TabIndex = 3
- Top = 1704
- Width = 4980
- End
- Begin VB.Label Label2
- Alignment = 2 'Center
- Caption = "Version 1.1"
- ForeColor = &H00800000&
- Height = 372
- Left = 1320
- TabIndex = 1
- Top = 720
- Width = 4932
- End
- Begin VB.Label Label1
- Alignment = 2 'Center
- Caption = "Fast Down"
- BeginProperty Font
- Name = "Arial"
- Size = 18
- Charset = 178
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00C00000&
- Height = 492
- Left = 1320
- TabIndex = 0
- Top = 120
- Width = 4932
- End
- Begin VB.Image Image1
- Height = 1395
- Left = 165
- Picture = "Form_About.frx":0D60
- Top = 555
- Width = 1035
- End
- Attribute VB_Name = "Form_About"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- Unload Me
- End Sub
- Private Sub Form_Load()
- Label_Registration.Caption = "( " + Form_Main.TuneIt1.RegistrationStatus + " )"
- '**** If the program is registered version, show the
- '**** registration message in black ( not in red ).
- If Form_Main.TuneIt1.RegistrationStatus = "Registered" Then
- Label_Registration.ForeColor = &HC0
- End If
- '**** Show the Windows start up time and mode
- '**** ( Normal boot or Safe mode ... )
- Label_WindowStartup.Caption = "Windows started at : " & Format(Form_Main.TuneIt1.WindowsStartupTime, "ddd, mmm d, yyyy - hh:mm:ss AMPM")
- Label_StartupMode.Caption = "[ Start up mode : " & Choose(Form_Main.TuneIt1.BootType + 1, "Normal boot", "Safe boot", "Safe boot with network support") & " ]"
- End Sub
- Private Sub Label_Email_Click()
- DefaultBrowser = Form_Main.TuneIt1.WebBrowser
- If Len(DefaultBrowser) > 0 Then
- RetVal = Shell(DefaultBrowser + " mailto:majids@geocities.com", 3)
- Else
- MsgBox "No Mail client available!"
- End If
- End Sub
- Private Sub Label_HomePage_Click()
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ''' To show the home page contents,
- ''' first we should have the Web browser application name,
- ''' and append the URL as a command line to it.
- ''' TuneIt! control located in Form_Main gives us the
- ''' Web browser names.
- BrowserApp = Form_Main.TuneIt1.WebBrowser
- If Len(BrowserApp) > 0 Then
- RetVal = Shell(BrowserApp + " http://www.angelfire.com/me/majids/TuneItHome.html", 3)
- Else
- MsgBox "No Web browser available!"
- End If
- End Sub
- Private Sub Label_RegistStatus_Click()
- '''' If the TuneIt ocx has been registered, ''''
- '''' no need to go to the online registration site.''''
- If Form_Main.TuneIt1.RegistrationStatus = "Registered" Then
- Return
- End If
- '''' Obtain the default Web browser address ''''
- DefaultBrowser = Form_Main.TuneIt1.WebBrowser
- If Len(DefaultBrowser) > 0 Then
- TuneIt_RegistrationAddress = "http://www.angelfire.com/me/majids/RegisterTuneIt.html"
- RetVal = Shell(DefaultBrowser + " " + TuneIt_RegistrationAddress, 3)
- Else
- MsgBox "No Web browser available!"
- End If
- End Sub
- Private Sub Label_Registration_Click()
- '''' If the TuneIt ocx has been registered, ''''
- '''' no need to go to the online registration site.''''
- If Form_Main.TuneIt1.RegistrationStatus = "Registered" Then
- Exit Sub
- End If
- '''' Obtain the default Web browser address ''''
- DefaultBrowser = Form_Main.TuneIt1.WebBrowser
- '''' If we have a default Web browser in system,
- '''' add the registration address as command line
- '''' and run it, otherwise inform the user ...
- If Len(DefaultBrowser) > 0 Then
- TuneIt_RegistrationAddress = "http://www.angelfire.com/me/majids/RegisterTuneIt.html"
- RetVal = Shell(DefaultBrowser + " " + TuneIt_RegistrationAddress, 3)
- Else
- MsgBox "No Web browser available!"
- End If
- End Sub
- Private Sub Timer1_Timer()
- Unload Me
- End Sub
-